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EDTSSCRNOSCR = full-screen scrolling region -$ep-1984 01:39: X-11 $-32 V Pa 1 EoT! 
_" 1b-sSep-1984 9:3 3 bts SK$ vmen teas ceD + SRCSSCRNOSCR. BLI; + as (1) vou: 
SCR = full-screen scrolling region 
Sent ( ! Full-screen scrollin 
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tle *EDTSSCRNO 
MODUL 
NT = 'V04-000' ! File: SCRNOSER. "3 } “Edit: J8S1003 
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BEGIN 


leuneusencecnenteereenecserneceenerererentestertecrenentntnennennnenerertets 
'e 

'@ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 

os ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS cya auee UNDER A LICENSE AND MAY BE USED AND copite 

'@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

He ede gfe ee THE move ag thal NOTICE. THIS SOFTWARE OR ANY OTHER 


; E Al 
'# QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i? obeoke ‘ste WOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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tee 
i FACILITY: EDT -- The DEC Standard Editor 
i ABSTRACT: 


This routine returns the V1T100 to a full-screen scrolling 
region. 


i] 
' 
i] 
{ 
t 
i] 
' 
1 
: ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
MODIFIED BY: 

' 
i 
i 
i 
i 


1-001 = Original. DJS 12-Feb-1981. This module was created b 
extractin zh routine 2! S$8C PULL StL bi from module SCREEN. 
1-008 - Re yer e headers. JBS 15-Mar- 
- Call EDT §$sc “oe TsccuRee. to track cursor position. JBS 05-0ct-1982 
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SBTTL *Declarations' 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM'; 
FORWARD ROUTINE 
EDTSSSC_FULLSCLL : NOVALUE; 
INCLUDE FILES: 

REQUIRE ‘EDTSRC:EDTREQ'; 


1 

MACROS: 

i NONE 

' 

i EQUATED SYMBOLS: 

i NONE 

! 

i OWN STORAGE: 

i NONE 

' 

i EXTERNAL REFERENCES: 
i In the routine 
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eget gp Teese Fone - fulimscrpen scrolling r gation b-sep =138¢ 9}: a! 3 Sm “11 Blis s-32 V 


SC_FULLSCLL ull-screen scrolls ng regio iz ~Sep-1 $v MenA Sfeasceo 1 SRCISCRNOSCR. BLI; a (33 
ZSBTTL “EDTSSSC_FULLSCLL - full-screen scrolling region’ 
GLOBAL ROUTINE EDTSSSC_FULLSCLL ! Full-screen scrolling region 
: NOVALUE = : 
'e¢ 
! FUNCTIONAL DESCRIPTION: 
Set the VT100 to full-screen (24 Line) scrolling region. 
i FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
i SIDE EFFECTS: 
NONE 


BEGIN 


exten, ROUTIN 
EDTSSSC USETSCLLREG : NOVALUE; ! Set the scrolling region 


EDTSSSC_SETSCLLREG (0, 24); 
END; 
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! of routine EDTSSSC_FULLSCLL 


-TITLE EDTSSCRNOSCR EDTSSCRNOSCR - full-screen scrolli 
ng region 

-IDENT \V04-000\ 

-EXTRN EDTSSSC_SETSCLLREG 

-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


0000 00000 -ENTRY EQ TSSSC_FULLSCLL. Save nothing ; 0657 
18 0D 000 PUSHL #24 ; 0688 

3 D4 CLAL ~ (SP) : 

000000006 00 02 FB CALLS #2, EDTSS$SC_SETSCLLREG : 
04 RET ; 0689 


; Routine Size: 14 bytes, Routine Base: _EDTSCODE + 0000 


. 
—— 
rer 
-o 


$63 i !<BLF /PAGE> 


EDTSSCRNOSCR DISSCRNOSCR = full-screen scrolling region 16-Sep-1 239: VAX-11 BL Ais -32 V 
104-000 EbTSe C.FULLSCLL = full-screen scrolling regio 1 “500-1944 93:32:88 DISKSVMSMASTER: cto i SRCISCRNOSCR. BLI; PE ca 
134 Bse4 1 END ! of module EDTSSCRNOSCR 
1 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 14 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eocceces Syabols oooeee<ee Pages Processing 
File Total Loaded Percent Mapped Time 
_8255SDUA EDT.SRCJEDT.L32; 377 4 :00. 
“Hee a sou ASe Lepr SRcapsec Ts i325) b } 50 } 00:00: 
COMMAND QUALIFIERS 
BL ISS/CHECK=(F ELD. INITIAL OPTIMIZE) /NOTRACEBACK/L ISL ISS: SCRNOSCR/OBJ90BIS s SCRNOSCR MSRC$:SCRNOSCR.BLI/UPDATE=(ENHS$:SCRN 
Size: 14 : + 0 data bytes 
Run Time: :08.4 
Elapsed Time: :10.4 
Lines/CPU Min: 496 
,onene yAok fake’? 1326 
genery Used: 49 pages 
Compilation Complete 
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